home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / sviluppo / svilupp2 / muiclstr.lha / txt / MCCZoomProp.def < prev    next >
Text File  |  1995-12-19  |  3KB  |  82 lines
  1. |##########|
  2. |#MAGIC   #|DNEIEIEB
  3. |#PROJECT #|"Mui"
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx---x-xxxx---x-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|x----xxxxx-xx---
  9. |##########|
  10. DEFINITION MODULE MCCZoomProp;
  11.  
  12. (*------------------------------------------
  13.  
  14.   :Module.      MCCZoomProp.mod
  15.   :Author.      Henning Thielemann
  16.   :Address.     Veilchenweg 34, 06118 Halle, Germany
  17.   :EMail.       henning.thielemann@student.uni-halle.de
  18.   :Version.     $VER: MCCZoomProp.mod 12.0 (05.96)
  19.   :Copyright.   Henning Thielemann
  20.   :Language.    Cluster
  21.   :Translator.  Amiga Cluster V2.0
  22.   :Contents.    Proportional Gadget with the ability to zoom via mouse
  23.   :Bugs.        Sorry, whatever I tried, it was not possible to use the default images for knob and background
  24.   :Usage.       <Angaben zur Anwendung>
  25.   :History.     3.1    [ht]     Mar-1996 : initial version, used in NomenEstOmen
  26.  
  27. --------------------------------------------*)
  28.  
  29. FROM MuiO      IMPORT MuiTags, CustomClassPtr, AreaObject, GroupObject;
  30. FROM Intuition IMPORT IntuitionBase;
  31. FROM System    IMPORT Regs;
  32.  
  33. TYPE
  34.   ZoomPropTags = TAGS OF MuiTags
  35.     propDummy  = $8CA70000;
  36.     propRealFirst   : REAL;
  37.     propRealTotal   : REAL;
  38.     propRealVisible : REAL;
  39.     propRealMove    : REAL;
  40.   END;
  41.  
  42.   TagItem = RECORD tag, data : LONGINT END;
  43.  
  44. CONST
  45.     aPropFirst       = CAST (TagItem, MuiTags : propFirst   : 0).tag;
  46.     aPropTotal       = CAST (TagItem, MuiTags : propEntries : 0).tag;
  47.     aPropVisible     = CAST (TagItem, MuiTags : propVisible : 0).tag;
  48.     aPropRealFirst   = CAST (TagItem, ZoomPropTags : propRealFirst   : 0).tag;
  49.     aPropRealTotal   = CAST (TagItem, ZoomPropTags : propRealTotal   : 0).tag;
  50.     aPropRealVisible = CAST (TagItem, ZoomPropTags : propRealVisible : 0).tag;
  51.     aPropRealMove    = CAST (TagItem, ZoomPropTags : propRealMove    : 0).tag;
  52.  
  53. (*
  54.     aPropRealFirst   = LONGCARD($8CA70001);
  55.     aPropRealTotal   = LONGCARD($8CA70002);
  56.     aPropRealVisible = LONGCARD($8CA70003);
  57.     aPropRealMove    = LONGCARD($8CA70004);
  58. *)
  59.  
  60. VAR
  61.   zoomPropMCC,
  62.   zoomScrollbarMCC : CustomClassPtr;
  63.  
  64. PROCEDURE MakeZoomPropObject      (tags : LIST OF ZoomPropTags) : AreaObject;
  65. PROCEDURE MakeZoomScrollbarObject (tags : LIST OF ZoomPropTags) : GroupObject;
  66.  
  67. LIBRARY IntuitionBase BY -648
  68.   PROCEDURE SetZPAttrs (object IN A0 : AreaObject;
  69.             tags   IN A1 : LIST OF ZoomPropTags);
  70.  
  71. GROUP
  72.   TagGrp = ZoomPropTags,  aPropFirst,     aPropTotal,     aPropVisible,
  73.        aPropRealMove, aPropRealFirst, aPropRealTotal, aPropRealVisible,
  74.        SetZPAttrs;
  75.  
  76.   ClassGrp = MakeZoomPropObject, MakeZoomScrollbarObject,
  77.          zoomPropMCC,        zoomScrollbarMCC;
  78.  
  79.   All = TagGrp, ClassGrp;
  80.  
  81. END MCCZoomProp.
  82.